5 PRINT"[147]ONE MOMENT PLEASE" 10 IFA=0THENA=1:LOAD"SL ULTSORT.ML",8,1 100 REM ****************************** 110 REM * <> * 120 REM * * 130 REM * PROGRAM REQUIRES MACHINE * 140 REM * LANG PRG "SL ULTSORT.ML" * 150 REM * WHICH MUST BE ON SAME DISK.* 160 REM * * 170 REM * * 180 REM * * 190 REM * * 200 REM * * 210 REM * BY: R. TAYLOR (NCUG) * 220 REM * 210 DURSO DR. * 230 REM * NEWARK, DE 19711 * 240 REM * * 250 REM * * 260 REM * * 270 REM * THIS VERSION IS FOR USE * 280 REM * WITH THE C-64, TYMAC * 290 REM * CONNECTION INTERFACE AND * 300 REM * OKIDATA 92 OR GEMINI 10X * 310 REM * PRINTER. * 320 REM * * 330 REM * * 340 REM * * 350 REM * * 360 REM * IF YOU HAVE A DIFFERENT * 370 REM * PRINTER, THAT WILL PRINT * 380 REM * IN CONDENSED MODE, THEN * 390 REM * CHANGE THE PRINTER CODES * 400 REM * IN LINES 6000- OR 7000- TO * 410 REM * SUIT YOUR NEEDS & CHANGE * 420 REM * LINES 520, 530, 910, 920, * 430 REM * AND 2000-2060 AS REQUIRED * 440 REM * FOR YOUR PRINTER. * 450 REM ****************************** 460 POKE53281,0:POKE53280,0:POKE646,5:CL$=CHR$(147):D$=CHR$(17) 470 POKE53272,21:REM UPPER CASE 480 OPEN4,4:PRINT#4,CHR$(27)"W"CHR$(136):CLOSE4:REM TYMAC CONNECTION REQ'MT 490 GOSUB 1000:REM TITLE SCREEN & INSTR 500 GOSUB 2000:REM SELECT PRINTER 510 GOTO540 520 CLR:GOSUB6000:GOTO540:REM OKI SETUP 530 CLR:GOSUB7000:GOTO540:REM G10X SETUP 540 PN=4:REM PRINTER DEVICE NUMBER 550 DN=8:REM DISK DRIVE NUMBER 560 C$="DISK NAME = ":N$=CHR$(0):ID$=" ID = " 570 DIM F$(150),RC$(144),OP$(48) 580 REM F$=FILENAME,RC$=ROW/COL,OP$=OUTPUT PRINTED 590 T$="-----------------":T$=T$+T$+T$+T$+T$+"--" 600 U$="=================":U$=U$+U$+U$+U$+U$+"==" 610 PRINTCL$:X=1:Z=1:X$="" 620 OPEN6,DN,0,"$0" 630 GET#6,A$,A$,A$,A$,A$,A$ 640 GET#6,A$:IF A$=""THEN660 650 X$=X$+A$:GOTO 640 660 B$=MID$(X$,21,2):A$=MID$(X$,3,16) 670 DN$=C$+A$+ID$+B$ 680 F$="":PRINT DN$+D$ 690 GET#6,A$,A$:IFA$=""THEN CLOSE 6:GOTO770 700 GET#6,A$,B$:B$=STR$(ASC(A$+N$)+ASC(B$+N$)*256)+" " 710 GET#6,A$ 720 IF ASC(A$+N$) >=219 THEN A$=" " 730 IF ASC(A$+N$) >=128 AND ASC(A$+N$) <193 THEN A$=" " 740 IF ASC(A$+N$) >=193 AND ASC(A$+N$) <219 THEN A$=CHR$(ASC(A$+N$)-P) 750 IF A$=""THEN F$(X)=B$:PRINT" "F$(X):X=X+1:B$="":GOTO 690 760 B$=B$+A$:GOTO710 770 OPEN4,4,6 780 PRINT#4,SP$;CO$;T$:PRINT#4:PRINT#4,U$ 790 PRINT#4,PI$;EM$;EN$;DN$;" ";CO$;F$(X-1);OF$:PRINT#4,T$:CLOSE4:OPEN4,4,S 800 FOR I=1TO(X-2) 810 RC$(I)=MID$(F$(I),7,18)+" "+MID$(F$(I),25,4)+" "+LEFT$(F$(I),4)+" " 820 NEXTI 830 FORI=49155TO49251:POKEI,170:NEXT 840 IFUS=1THENSYS49154,(X-2),RC$(1) 850 FOR R=1TO48:OP$(R)=RC$(R)+RC$(R+48)+RC$(R+96) 860 PRINT#4,OP$(R):NEXTR 870 PRINT#4:PRINT#4:PRINT#4,T$:PRINT#4,FF$:PRINT#4,CN$:CLOSE4 880 POKE53272,21:PRINTCL$;D$;" TO DO ANOTHER DISK" 890 PRINTD$" INSERT NEXT DISK AND PRESS 'RETURN'" 900 PRINTD$+D$+D$" TO QUIT PRESS 'Q'" 910 GETA$:IFA$=CHR$(13)ANDPT$="OKI"THEN520 920 IFA$=CHR$(13)ANDPT$="G10X"THEN530 930 IFA$<>"Q"THEN910 940 GOTO63000 950 : 960 :+++++++++++++++++++++++++++++++++++ 1000 REM ********* TITLE SCREEN ******** 1010 PRINTCL$;D$+D$+D$ 1020 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163] SLEEVE LISTS [163][163][163][163][163][163][163][163][163][163][163][163]" 1030 PRINT"[153] [183][183][183][183][183][183][183][183][183][183] SLEEVE LISTS [183][183][183][183][183][183][183][183][183][183]" 1040 PRINT" [184][184][184][184][184][184][184][184] [155]SLEEVE LISTS [184][184][184][184][184][184][184][184]" 1050 PRINT" [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]" 1060 PRINT" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]" 1070 PRINT:PRINT" [223] [146][169]" 1080 PRINT:PRINT:PRINT" [223][183][183][183][183][183][183][183][183][183][183][169]" 1090 PRINT" [223] [169]" 1100 PRINT" [223] [169]" 1110 PRINT" [223] [169]" 1120 PRINT" [223] [169]" 1130 PRINT" [223][169]" 1140 PRINTD$+D$"OKI 92 & GEMINI 10X VERSION BY R.TAYLOR" 1150 FOR J=1TO5000:NEXT:PRINTCL$+D$+D$ 1160 PRINT"PROGRAM WILL READ ALL FILES FROM THE 1170 [153]"DISK DIRECTORY AND THEN OUTPUT A 1180 PRINT"UNIFORM SIZE LIST TO THE PRINTER. 1190 [153]:[153]"THERE WILL BE ONE LIST PER PAGE 1200 PRINT"WHICH IS TO BE TRIMMED AT THE TOP 1210 [153]"& BOTTOM DASHED LINES AND 5 1/2 INCHES 1220 PRINT"FROM THE LEFT EDGE OF THE PAPER (AFTER 1230 [153]"REMOVING SELVAGE). 1240 PRINT:PRINT"FOLD LIST AND PLACE INTO DISK 1250 [153]"SLEEVE SO THAT TITLE SHOWS AT TOP 1260 PRINT"OF SLEEVE. 1270 [153]D$"FOR THE GEMINI 10X ADJUST TRACTOR SO" 1280 [153]"PRINTING STARTS APPROX 1/4 INCH FROM" 1290 [153]"LEFT EDGE OF PAGE." 1300 [153]D$"PRESS ANY KEY TO CONTINUE" 1310 [161]A$:[139]A$[178]""[167]1310 1320 [142] 1330 : 1340 :[170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170] 2000 [143] ******* SELECT PRINTER ******** 2010 [153]CL$"SELECT PRINTER":[153]D$[170]D$[170]D$:[153]"(O) OKIDATA 2020 PRINT"(G) GEMINI 10X 2030 [153]D$[170]D$;"ENTER YOUR CHOICE ( O OR G )" 2040 [161]A$:[139] A$[179][177]"O" [175] A$[179][177]"G"[167] 2040 2050 [139] A$[178]"G"[167] 7000 2060 [139] A$[178]"O"[167] 6000 2070 : 2080 :[170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170] 3000 [143] ***** SELECT OUTPUT MODE ****** 3010 CL$[178][199](147):D$[178][199](17) 3020 [153]CL$[170]D$[170]D$" SELECT OUTPUT MODE" 3021 [153]D$"DO YOU WANT SORTED LIST (Y/N)" 3022 [161]A$:[139] A$[179][177]"Y" [175] A$[179][177]"N"[167] 3022 3023 US[178]0:[139] A$[178]"Y"[167] US[178]1:[143] TURN ON SORT ROUTINE 3030 [153]D$" (L) LOWER & UPPER CASE" 3040 [153]D$" (U) UPPER CASE ONLY" 3050 [153]D$[170]D$;"ENTER YOUR CHOICE ('L'OR 'U')" 3060 [161]A$:[139] A$[179][177]"L" [175] A$[179][177]"U"[167] 3060 3070 [139] A$[178]"L"[167] S[178]7:[143] S=SECONDARY ADDRESS 3080 [139]S[178]7[167]P[178]96:[153]CL$:[151]53272,23:[142] 3090 S[178]0:P[178]128 3100 [142] 3110 : 3120 :[170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170] 6000 [143] ******* OKIDATA CODES ********* 6001 ES$[178][199](27) :[143] ESC CHARACTER 6002 PI$[178][199](30) :[143] PICA 10CPI 6003 CO$[178][199](29) :[143] CONDENSE 17CPI 6004 EM$[178]ES$[170][199](84) :[143] EMPHASIZED ON 6005 EN$[178]ES$[170][199](72) :[143] ENHANCED ON 6006 OF$[178]ES$[170][199](73) :[143] EMP & ENH OFF 6007 CN$[178][199](24) :[143] CAN (RESET) 6008 SP$[178]ES$[170][199](56) :[143] 8 LINES/INCH 6009 FF$[178][199](12) :[143] FORM FEED 6010 PT$[178]"OKI":[141]3000:[142] 6020 : 6030 :[170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170][170] 7000 [143]****** GEMINI 10X CODES ******** 7001 ES$[178][199](27) :[143] ESC CHARACTER 7002 PI$[178]ES$[170][199](66)[170][199](1) :[143] PICA 10CPI 7003 CO$[178]ES$[170][199](66)[170][199](3) :[143] CONDENSE 17CPI 7004 EM$[178]ES$[170][199](69) :[143] EMPHASIZED ON 7005 EN$[178]ES$[170][199](71) :[143] ENHANCED ON 7006 OF$[178]ES$[170][199](72)[170]ES$[170][199](70):[143] EMP & ENH OFF 7007 CN$[178]ES$[170][199](64) :[143] CAN (RESET) 7008 SP$[178]ES$[170][199](48) :[143] 8 LINES/INCH 7009 FF$[178][199](12) :[143] FORM FEED 7010 PT$[178]"G10X":[141]3000:[142] 63000 [143] CONNECT BACK TO L.S. 63002 [153]"LOADLOAD"[199](34)"PAYLOAD"[199](34)",8":[153]"RUN" 63004 [151]198,0:[151]631,13:[151]632,13:[151]198,2:[128]